prolog './g200m.ijs'
NB. m&|@^ ---------------------------------------------------------------

f=: |`^/
g=: 3 : 0
 'm x y'=.y
 x m&|@^ y
)

(f -: g)  1e3  2 24
(f -: g)  1e3 _2 24
(f -: g) _1e3  2 24
(f -: g) _1e3 _2 24

(f -: g)  1e3  2 0
(f -: g)  1e3 _2 0
(f -: g) _1e3  2 0
(f -: g) _1e3 _2 0

(f -: g)  1e3  2 _5
(f -: g)  1e3 _2 _5
(f -: g) _1e3  2 _5
(f -: g) _1e3 _2 _5

(f -: g) x:  1e6  2 500
(f -: g) x:  1e6 _2 500
(f -: g) x: _1e6  2 500
(f -: g) x: _1e6 _2 500

1r4          -: 2 (1e6&|@^) _2x
125 625 1r25 -: 5 (1e6&|@^) 3 4 _2x




epilog''

